10 REM SPEEDSCRIPT DATE/TIME BOOT PROGRAM
20 A$="SPEEDSCRIPT DATE"
30 IF A=0 THEN A=1:PRINT"[147][151]LOADING..."A$:LOAD A$,8,1
40 PRINT CHR$(147) SPC(131) A$
50 ML=51451:CL=51823:U$=CHR$(145)+CHR$(145)
60 PRINT SPC(85)"SET THE DATE (MN/DT/YR)":PRINT
70 INPUT"MONTH  (1-12)     [157][157][157][157][157]";MN
80 IF MN<1 OR MN>12 THEN PRINT U$:GOTO70
90 INPUT" DATE  (1-31)     [157][157][157][157][157]";DT
100 IF DT<1 OR DT>31 THEN PRINT U$:GOTO90
110 INPUT" YEAR (86-99)     [157][157][157][157][157]";YR
120 IF YR<86 OR YR>99 THEN PRINT U$:GOTO110
130 PRINT SPC(85)"SET THE TIME (HR/MS/AM-PM)":PRINT
140 INPUT"HOURS  (1-12)     [157][157][157][157][157]";HR
150 IF HR<1 OR HR>12 THEN PRINT U$:GOTO140
160 INPUT" MINS  (0-59)     [157][157][157][157][157]";MS
170 IF MS >59 THEN PRINT U$:GOTO160
180 INPUT"AM-PM   (A/P)     [157][157][157][157][157]";P$
190 IF P$ <>"A" AND P$<>"P"THEN PRINT U$:GOTO180
200 FLAG=128:IF P$="A"AND HR<12 THEN FLAG=0
210 IF P$="P"AND HR=12 THEN FLAG=0
220 BY=HR:GOSUB300:HR=BY OR FLAG
230 BY=MS:GOSUB300:MS=BY
240 POKE CL,MS:POKE CL+1,HR:POKE CL+2,MN
250 POKE CL+3,DT:POKE CL+4,YR
260 PRINT:PRINT"PUT SPEEDSCRIPT DISK IN DRIVE 0, UNIT 8"
270 PRINT" - WHEN READY, PRESS RETURN.":SYS 65487:SYS ML
280 POKE 52578,240:POKE 52579,20
290 END
300 X=INT(BY/10):Y=BY-10*X:BY=16*X+Y:RETURN